home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / ibm / loadall.arc / E2BLINK.ASM < prev    next >
Assembly Source File  |  1990-02-12  |  1KB  |  58 lines
  1. RAM    EQU    $0000
  2. REGS    EQU    $1000
  3. EPROM   EQU     $F800
  4. VECTORS    EQU    $FFD6
  5. PORTC   EQU     REGS+$03
  6. PortB   EQU     REGS+$04
  7. CFORC   EQU     REGS+$0B
  8. TCNT    EQU     REGS+$0E
  9. TOC2    EQU     REGS+$18
  10. TCTL1   EQU     REGS+$20
  11. TCTL2   EQU     REGS+$21
  12. TMSK1   EQU     REGS+$22
  13. TFLG1   EQU     REGS+$23
  14. TMSK2   EQU     REGS+$24
  15. TFLG2   EQU     REGS+$25
  16. ADCTL   EQU     REGS+$30
  17. ADR1    EQU     REGS+$31
  18. ADR2    EQU     REGS+$32
  19. ADR3    EQU     REGS+$33
  20. OPTION  EQU     REGS+$39
  21. *
  22. * ETC NEED TO DO REST
  23. *
  24. *
  25. *
  26.     ORG    EPROM
  27. INITIAL LDS     #$00FF
  28.     LDAA    #$83
  29.     STAA    TMSK2
  30. *       CLI
  31. START    NOP
  32.         LDAA    #$FF
  33.         STAA    PortB
  34.         NOP
  35.         NOP
  36.         NOP
  37.         NOP
  38.         LDAA    #$00
  39.         STAA    PortB
  40.         NOP
  41.         JMP     START
  42. *
  43. *
  44. *************************
  45. *    INTERRUPTS
  46. **************************
  47. ITIMEO  NOP
  48.         LDAA    PortB
  49.         EORA    #$01
  50.         STAA    PortB
  51.         LDAA    #$80
  52.         STAA    TFLG2
  53.         RTI
  54. *
  55. *
  56.         END
  57.  
  58.